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PCSG provides hotline software 
support for the Model 100. Give us 
a call at 1-214-351-0564. 


With BUS1NESSPAK+ the Model 100 
is virtually a complete tool for the 
manager or executive. Picture how 
this added capability will help you. 

WRITE+: Instead of merely a text 
preparation device the Model 100 
becomes a real word processor. 
Margins . . . side, top and bottom. 
Title page, topic headings, page 
numbers, and even headers and 
footers. You can even right justify 
and print multiple copies. It has 
over 36 features and countless 
format possibilities. 

EXPNS+: By simply entering 
expenses into eighteen categories, 
you get a twelve day spreadsheet, 
giving totals for each day, and 
category. Names of rows and 
columns are instantly changeable, 
and the sheet becomes a budget 
or even a financial report. Replica- 
tion across the columns, cumlative 
totals, and automatic growth or 
decline rate projection, make 
EXPNS+ an excellent planning tool. 
And, all the math is built right in. 


GRAPH+: Prints out Bar, Line and 
Pie graphs of any EXPNS+ report 
on the DMP-100 dot matrix printer. 
Shows the percents on the pie chart 
and values on the others. 

TELEX+: From any phone send any 
text file to any Telex machine in the 
world. Just enter the receiving 
Telex number. Send Mailgrams for 
next day delivery to any address 
at reduced rates through the 
Action Telex system. 

PUT+: Lets you list any informa- 
tion in an organized fashion. It 
prompts for each entry and very 
rapidly creates addresses or schedule 
items and even inventory. 

SORT+: Allows you to sort any 
list you compile with PUT+ alphabet- 
ically or numerically from any 
category in the entry. It can sort 
large files up to 20 times faster than 
an all Basic program. 
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w/16K Ext. Basic $255 
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Model IV16K 
Model IV64K 
2 Disk &RS232 C$1699 



BUY DIRECT 


Here are just a few of our fine offers . . . 
call TOLL FREE for full information. 


COMPUTERS 


R.S. Modem 1 D.C. 

Model 12 64K1 Drive 

$2699 

R.S. Modem II D.C. 

Model 12 64K 2 Drive 

3375 

R.S. DC-1200 

Model IV16K 

849 

PRINTERS 

Model IV64K 


Daisy Wheel II 

2 Disk & RS232 c 
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DWP-410 

Color Computer 16K 

175 

Silver Reed EXP 550 D.W. 
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Epson 
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Join Us For AWorld Of Portable Computing. 

We’re glad you picked up this inaugural copy of PCM — The Portable Computing Magazine and we 
hope you’ll like us. 

We are the people who publish theRainbow, the leading magazine for the TRS-80 Color Computer. By 
deciding to publish a second magazine devoted exclusively to one model of the TRS-80 family, we plan to 
adapt the formula which carried the Rainbow to the top of its field. 

In a word, we expect to be a success because of you. We won’t confuse you with a lot of computer 
gibberish, we don’t plan to devote a lot of space to a whole number of arcane “secrets” of the Portable 
Computer that you probably won’t use and will care about even less. But, most important of all, we expect 
to have a user-oriented magazine that will answer your needs and interests. 

We hope this inaugural issue of PCM — The Portable Computing Magazine will give you some idea of 
what we will be trying to do. 

For example, Robert Frowenfeld’s lead article on making graphs with the Portable Computer and the 
Radio Shack Color Graphics Printer should give you some idea of the versatility built in to your new 
Model 100. Robert, one of our contributing editors, also begins a series called “On The Road,” which will 
give you both some ideas and practical methods for using your Portable while away from home base. 

We think the software built into the Portable Computer is super. This month we’ll show you how to be 
sure the sorting utility works that is printed in the manual that came with your 100. That is, we’ll alert you 
to a possible problem that could occur. In future issues, we’ll be showing you other things you can do with 
the “ADDRESS” and “SCHEDULE” programs that are built in. 

We firmly believe the Portable Computer isn’t all for business. But, Vincent Lord has a couple of short 
programs which you can use in figuring out business-type problems. We hope you will find them useful. 
Also, there is a full-scale loan amoritization program that will let you know a great deal about money at 
interest. 

Did we say that the Portable Computer can be fun, as well as useful? Well, there is our NIM program, 
too. Great fun. Try to beat your computer. Let us know if you do. 

And, no one has ever disputed the educational value of a computer. So, our QUIZ program can teach 
Spanish or French, geography or just about anything else. It is built to drill the youngsters around you on 
just about any subject. All you have to do is plug in the questions and answers. 

There are a few other things here, too. Including advertisments. Take note of them. And, please, 
mention our name when you do place orders. It will help us grow and, in growing, we will be able to better 
serve you. 

Yes, do please consider PCM — The Portable Computing Magazine as yours. We welcome your 
suggestions and thoughts. We encourage you to send us your programs and hints. Address them to PCM 
Submissions Editor. (We’ll pay for contributions.) And, please use our “Letters” column to tell all the 
other Portable Computer owners out there things you have found out — or ask something you want to 
know. (No, don’t look too hard for the “Letters” column this month, it isn’t here. We have to have a 
magazine before we can get any letters, don’t we?) 

And, we want to make you aware of the PCM Certification Seal. It will be your assurance of the 
working existence of a product for your Model 100. 

Y ou may be interested in learning about some of the people who are on the masthead of this issue. Our 
managing editor, Courtney Noe, was the Rainbow's first editorial employee. He has a lengthy and varied 
background in magazines and journalism and a Model 100 he proudly calls his own. Jerry McKiernan, 
our art director, planned the “look” of this magazine and also has worked on theRainbow, among other 
publications. 

Charlotte Ford, our advertising manager, will assist you with any advertising needs you may have and 
Ivanka Kleier, our customer service manager, will help you with any subscription questions you may 
have. Pat Hirsch, our general manager, will always be ready to assist in almost anything. 

But the most important member of our staff is you! We look to you for help, input and contributions. 
We will listen to your wants and needs. And, together, we hope to have an outstanding magazine that will 
support an excellent computer. 

We look forward to working for you and with you. 

—The Editors 
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Portable Computing 
Will Be Your Key 
To A New World 


H ello. And welcome to PCM. We 
believe you’re going to like us. 

For the record, PCM is brought to 
you by the same people who publish a 
magazine for the TRS-80 Color Com- 
puter called the Rainbow. And many of 
the things which have made that maga- 
zine the leader in its field will apply to 
PC M, too. 

As you can obviously tell from the 
heft of this issue, we intend for PCM to 
start sort of small and grow with you 
and your portable computer. And, 
while we believe we have enough infor- 
mation in these pages to keep you busy, 
don’t be surprised if, a year from now, 
you end up holding a magazine that’s 
more than 100 pages. 

We believe there is a great future for 
your portable computer and for you. 
PCM intends to be part of that future 
and to share it with you. 

This being our inaugural issue, I 
thought you would be interested in what 
PCM will be and what it will not be. 

First of all, we are an independent 
magazine. We are not sponsoredby any 
company or software firm. That’s 
important, because we plan to carry 
extensive reviews of all sorts of 
products — hardware, software and 
firmware — that will be available for 
your Portable Computer. In so doing, 
we will be able to be independent and to 
give you fair and accurate information 
about anything you might consider 
purchasing. 

Second of all, we are not in the soft- 
ware business. Yes, our plans include 
the possibility of offering you programs 
which appear in PCM on tape at some 


time in the future. But, we will not be 
hawking products of our own. 

Why not? Because we wish to remain 
independent. And we want you to be 
certain that, when we evaluate a pro- 
duct, we will evaluate it without concern 
about anything that we might be selling. 

Third, you will find that we have no 
ax to grind with any company, individ- 
ual or organization. You should be 
aware that this includes Radio Shack 
and Tandy Corp. When we see some- 
thing good, we’ll say so. And when we 
see something we don’t like, we’ll say 
that, too. But, in keeping with good 
journalistic practice, when we do print 
opinion, well label it as such. 

Most important of all, we intend to be 
a readers’ magazine. We will publish 
programs you can use — and we’ll ask 
you to send along those in which you 
think others will be interested. Yes, we 
will pay you for them. Just let us know 
whether you want remuneration. 

We intend to have a lively and infor- 
mative “Letters T o The Editor” feature, 
an “insider’s” column so you’ll know the 
latest news of what’s happening that 
affects your Portable Computer, tutor- 
ials on how to use the various functions 
and many more features — some of 
them on specific areas of interest. 

But, most of all, we intend to have 
programs. Programs you can key in and 
use. We’ll give you information about 
how a program works (whenever possi- 
ble) so you can learn while typing them 
in. But, remember, PCM is a magazine 
that you will be able to use. We’ll be 
short on theory and long on practical 
applications. 


Also, don’t expect to see a lot of 
material (or any, for that matter) about 
“other” computer systems. We’re a spe- 
cialized publication devoted to the Por- 
table Computer. That means simply 
that you won’t have to “wade through” 
a lot of other material to find something 
of interest to you. And, while some pro- 
grams — due to memory requirements 
— may not run on your own machine, 
all will be written to run on your own 
Portable Computer. That’s a big bonus 
to you, because everything here is appli- 
cable to you! 

You should know there is genuine 
enthusiasm here at PCM for the con- 
cept of portable computers. And, too, 
there is excitement about the TRS-80 
Model 100 Portable Computer. Yes, we 
will probably get into some of the other 
portables. We find that many applica- 
tions are similar. 

We believe you will share our excite- 
ment about portable computing. It 
opens up avenues which never were 
open before. We hope you will consider 
us to be your magazine, that you will tell 
your friends and associates about us 
and that you will mention our name 
when contacting advertisers. That’s 
important to us, but it is important to 
you, too. As we grow, we will be able to 
offer more pages, more information and 
more portable computing insight than 
we can without your support. 

We look forward to our association 
with you. 

Please contact us if we can help or 
work with you in any way. 

— Lonnie Falk 
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Skyline Software 


PUBLISHERS OF QUALITY MICROCOMPUTER SOFTWARE 

The Porta™ series from Skyline — 
to help you work faster and better! 

PortaCalc® — Model 100 “electronic spreadsheet” with 15 column by 26 row workspace! Full use of 
the built-in function keys to save, load, screen print, report print, or to look behind the data at the 
formulas in use. 

Full arithmetic operators including exponentiation, absolute value, integer, summation, and averaging. 
Calculations are done to 14 digits of precision and displayed up to 9 digits. User selectable decimal 
place from none through seven — not just one, two, or floating! Formula replication is included to 
allow fast creation of worksheets. 

Worksheets may be saved, loaded, or merged using the computer’s memory or cassette. Often used 
templates can be saved in memory for instant recall. DIF file creation feature allows transfer of 
worksheets or data to VisiCalc on your big machine back at the office! 

Printer driver gives more control for report formatting. 

Comes with extensive documentation in padded 3-ring binder. Includes tutorial, detailed reference 
section, and executive level sample templates. Fully illustrated with screen prints, examples, and hints. 

PortaStat® — Correlation, regression analysis, covariance and descriptive statistics package, designed 
to be a working tool for today’s businessman. Data can be input from cassette, memory, or keyboard. 
Interactive with PortaCalc data files! Thoroughly documented, includes tutorial. 

PortaFin® — Present value, net present value, future value, annuities, interest factors, loan 
constants, internal rate of return and more! This user-friendly package prompts you for the 
needed input data, then gives you the answer to your loan or 
investment problem! Interactive with PortaCalc files, allowing 
you to “read” cash flow data from memory. Keyboard or 
cassette input also available. 

PortaMax® — The powerful ‘simplex’ method of linear 
programming. Find the optimum ‘mix’ for a given set of 
constraints. Interacts with PortaCalc files to avoid time-wasting 
repetitive data entry. Tutorial, examples, and bibliography included. 

PortaMed® — an ‘electronic clipboard’ for the medical pro- 
fessional. Already in use at a major hospital. Patient medical 
record keeping and report generation. Clearly documented, and 
easy to use. 

PortaFolio® — Stock and bond valuation, betas, Macaulay’s 
duration, yield to maturity, bond swap calculations, and much 
more. All in an easy to use program, interactive with PortaCalc 
data files. Supplied with comprehensive instructions and 
reference manual. 


All Porta series programs are supplied on cassette and require 
24K RAM. 

Pricing — PortaCalc is $69.95, all others are $44.95 each. 
SPECIAL OFFER: 

Computer cassette recorder, with cable for Model 100, and a 
dozen data cassettes with cases — $49.95 with any Porta 
software purchase. 


/ordering 

INFORMATION 

ALL ITEMS SHIPPED 
FROM STOCK 

Phone orders 
may be placed at: 

( 312 ) 260-0929 
(Our voice line), 

or with your 
computer at: 

( 312 ) 588-7917 
(Our MODEM line) 

$2.00 shipping and handling 
per order. 

Mail orders should be sent to: 

SKYLINE 
MARKETING 
442 Sunnyside 
Wheaton, IL 
60187 


VISA 

fi; iiiill!! 



Table 1 


Item # Description 


Type 


O ne of the biggest advantages of 
having a computer is the ability 
to perform operations that 
| would normally be either too tedious or 
| even impossible to do manually. Plot- 
j ting graphs has always been one of those 
things that I knew a computer could do 
more quickly and accurately than I 
I could by hand. Whether plotting a 
mathematical equation, your corpora- 
I tion’s sales history, or even the Dow 
Jones industrials average, a well 
designed graph drawn by a computer 
can be very helpful. Instead of pouring 
over columns of figures, the person 
viewing a graph can immediately pick 
out trends and/or changes and get a 
much better understanding of what the 
numbers actually mean. 

Pve found that using the Model 100 
Portable Computer along with the 
Color Graphics Printer (CGP-115) 
produces super multi-color graphs. The 
CGP-115 uses roll paper which is 4" 
wide. While four inches may not seem 
like it would be wide enough to produce 
I an acceptable graph, the CGP-1 15 has 
the ability to print as many as 80 charac- 
ters on a 4" line, and can rotate charac- 
| ters 90 degrees in any direction. 

The accompanying program was 
! originally designed to run on a TRS-80 
Model 16, and has been successfully 
| adapted to run on the Model 100. The 
program takes up a little less than 6K of 
memory and will easily run on a 
machine equipped with 16K. In order to 
run this program, two data files must be 
created. One defines the graph titles, X 
! and Y axis scales and axis labeling 
information. The second file (see List- 
ing #3) contains the data to be plotted. 
When setting up the two files, a special 
convention must be used for the file- 


names so that the plotting program will 
know where to find them. In this exam- 
ple, 1 named the format file TESTF.DO 
and the data file TESTD.DO. The 
extension “.DO” indicates that the files 
are ASCII character files, similar in 
nature to any document file created 
with the TEXT program that comes 
installed on the Model 100. When nam- 
ing the files, the same name must be 
used with the last character in the name 
of the format file; an “F” (for format) 
and the last character of the data file a 
“D” (for data). Since the Model 100 
allows up to six characters for the file- 
name, the format and data files can have 
unique titles up to five characters in 
length with the last character an “F” or 
D.” When the program is run it will ask 
for the filename to be plotted. In the 
example here, where the format and 
data files are named TESTF.DO and 
TESTD.DO respectively, the proper 
response is to enter the four-character 
name TEST. Once the ENTER key is 
pressed the CGP-1 15 starts plotting. 

To generate the format file, I used the 
TEXT program that comes with the 
Model 100. The format file items and 
their type (alpha or numeric) are listed 
in Table 1 . Following is a description of 
each item’s purpose: 


Main Graph Title 
Sub-title 
X-Axis Title 
Y-Axis Title 
Grid 

UX Units 
#Y Units 
Smallest X Value 
Largest X Value 
Smallest Y Value 
Largest Y Value 
#X Divisions per unit 
#Y Divisions per unit 
Number of Lines 
X axis label format 
Y axis label format 
Point Markers 
Line Label Print Size 


Alpha 
Alpha 
Alpha 
Alpha 
(Y or N) 
Numeric 
Numeric 
Numeric 
Numeric 
Numeric 
Numeric 
Numeric 
Numeric 
Numeric 
Alpha 
Alpha 
(Y or N) 
Numeric 
( 0 - 2 ) 


Following is a brief description of the 
funtion each of these items plays in for- 
matting the graph. 

1 — 4) These titles can be of any length. 
The number of characters should be 
kept reasonably small, especially in the 
case of the Y axis title so that it will fit 
within the graph boundaries. 

5) If a grid overlay is desired this should 
be a “Y,” otherwise “N.” This can be 
rather handy when interpolating the 
value of a continuous function. In this 
example, a grid was not used and “N” 
was entered. 

6 — 7) This is the number of units to be 
labeled on each axis. Do not include the 
first point to be labeled (the origin) 
when counting; the program does this 
automatically. 

8 — 1 1 ) These are the lowest and highest 
values on the X and Y axes. Note that 
these are not necessarily the maximum 
and minimum values of the data points 
to be plotted, but the lowest and highest 
values that will be labeled on the axes. 
The program won’t check to see if your 
data actually fits within these limits, so 
these values should be selected with 
care. 

12—13) This is the number of divisions 
into which each unit on the X and Y 
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Figure 1 


I axes is to be divided. In the case of the 
I example, a value of 2 was specified for 
I the X axis and 4 for the Y axis. This 
resulted in two and four divisions 
I between each labeled numeric value on 
I the X and Y axes respectively. A value 
I greater than or equal to 1 mustbespeci- 
jfied for these values. 

1 4) Any number of lines can be specified 
(here; the example uses two. 

15—16) The format for the printing of 
I the values along the X and Y axes has 
the format “m.n,” where m is a series of 
|“#” characters used to represent the 
number of digits to the left of the 
decimal point and n is a series of “#” 
characters to represent the number of 
digits to be printed to the right of the 
decimal point. For example, if the 
numbers to be printed along one of the 
axes were in the range of 0 — 100, then 
the appropriate format would be “###.” 
In the example used for the plot appear- 
ing in this article, formats for the X and 
Y axes were chosen as “##.#” and “#.#” 
respectively. Had the Y axis format 
been for example, the values 

would have appeared as “0.00,” “0.20,” 
I “0.40,”. . .“1.00.” 

17) If the value of this is specified as“Y,” 
then a marker will be placed at the posi- 


tion of the data point. The marker is 
specified later on in the line specifica- 
tions. The example in this article uses 
point markers. If markers are not | 
desired, use the character “N.” 

18) This is the size of print used to print I 
the line titles and can have an integer | 
value of 0, 1 , or 2. Using the value 0 will i 
result in extremely small print, 20 pitch, 
or 80 characters on a 4" line, to be exact, j 
Size 1 is used in the example and results I 
in 10 characters per inch. Size 2 can be 
used and prints large letters (6.7 charac- 1 
ters per inch). 

For each line, the following informa- 
tion must be supplied: 


Line Type 
Line Title 
Next Line 
Number of Points 
Line Color 
Marker Character 
X Title Position 
Y Title Position 


Numeric 

Alpha 

(Y orN) 

Numeric 

Numeric 

Alpha 

Numeric 

Numeric 


a) The line type has a value of (0 — 15) I 
and corresponds to the line type des- 
cribed in the CGP-115 manual. There 
are 16 different types of lines, ranging I 
from a solid line to several types of I 
dashed lines to a very fine dotted line. In 
the accompanying example, the line 
type used was 0; this generates a solid | 
line. 

b) The line title can be of any length. I 
Care must be taken to position the title 
so that it fits within the boundary of the | 
graph. 

c) Next line indicates if there are more I 
lines to plot. The example here contains 
two lines. For the first line a “Y” is used 
to indicate that there is a second line to 
plot. The second line is also the last line 
so a “N” is used. 

I d) This is the number of points the line I 
I contains. Our example’s lines each con- 1 
tain 21 data points. 

e) Line color is indicated as follows: 0 = 

| black, 1 = blue, 2 = green, 3 = red. 

0 The marker character must be speci- 

fied, and can be any one of the 96 char- 1 
acters the CGP-115 can print. This 
includes: 0 — 9, A — Z in both upper and 
lower case, and some special symbols 
such as Even 

if marker symbols are not desired, a 

I character (even a blank) must be | 
declared. 

g,h) These are the X and Y coordinates I 
of the starting position of the line title 
(item “a” above). These are defined in 
terms relative to the scales printed along 
the X and Y axes. If, for example, we 
had wanted to print the titles at the bot- 
tom of the graph (below the X axis) the [ 

[ Y coordinate would have been in the j 

1 neighborhood of -0.3. Keep in mind 
when determining the starting position | 
for the line title that a sample line 
long will be printed at that position with 

| the title printed just to the right. 

The data file (Listing 3) was gener-| 
ated by the program in Listing 4. The 
format of the data file is as follows. The I 
| first item in the data file is the number of 
lines for which there is data; two in this 
case. Next, each line of the sequential 
data file consists of a series of X,Y pairs 
I of numbers separated by a comma. 
After the last X,Y pair is the point 
1999.999,999.999; this tells the program 
j there is no more data for this line and | 
j the next data is for the following line. 



With a little bit of practice, anyone with a Model 100 and 
CGP-1 15 can generate neat, impressive line graphs. I use a 
modified version of this program to chart my stocks by 
plotting prices, volumes and moving averages. I know sev- 
eral people who are using this program to keep an eye on 
sales figures and productivity performances. 


GOLDLABEL" 

BLANK CASSETTES 

★ PREMIUM 5 SCREW SHELL 
★ COMPUTER DATA QUALITY ★LOW NOISE 
★ MADE IN USA ★GUARANTEED 

1 DOZEN C-10 LENGTH $8.50 + $2.50 shpg. 

2 DOZEN C-10 LENGTH $16.00 + $3.50 shpg. 

1 DOZEN C-30 LENGTH $12.50 + $2.50 shpg. 

2 DOZEN C-30 LENGTH $23.50 + $3.50 shpg. 

Individual storage boxes (sold only with cassettes) $2.40 per dozen. 
CASSETTE CADDY: $3.95 + $2.00 shpg. 

2 for $7.00 + $3.00 shpg. 

Free shipping on one caddy with each dozen cassettes. 

Foreign orders include shipping at 16 oz. per dozen tapes/9 oz. per 
caddy/13 oz. per dozen boxes. Shipped in U.S. by UPS. 

CASSETTE CADDY 

TIRED OF MISPLACED TAPES AND A CLUTTERED WORK AREA? TRY 
OUR HINGED TOP SMOKED PLASTIC CADDY THAT HOLDS 12 TAPES IN 
ONE HANDY LOCATION. EDGE LABELS INCLUDED TO IDENTIFY TAPES. 



CERTIFICATION 

SEAL 


Visa and Mastercard accepted (include expiration date) Orders paid by 
cashier's check, money order or bankcard are shipped within 48 hours. 
Personal check takes 1-2 wks. No COD. Some foreign sales are restricted. 
Texas residents add 5% tax. 

COLOR SOFTWARE SERVICES 
P.0. BOX 1708, DEPT. R 
GREENVILLE, TEXAS 75401 

Telephone Orders: (214) 454-3674 9-4 Monday-Saturday 

* DEALER INQUIRIES INVITED ^QUANTITY DISCOUNTS AVAILABLE 


Listing 1: 

1 CLEAR1000: DEFINT I-Q,W:DEFSTR A,R,ZiDE 
FDBL PiDEFSNG X , Y: l=0s J«0: CLS ‘prun 

2 Rl$=CHRt (27) + M p" ! U$=CHR4 (27) + M q" 

4 MD=100 

3 G0T071 

30 A ! =Xi B ! =Yi G0SUB44I LPRINT"D"+XY$! RETUR 
N 

31 A ! *X: B ! “Yi GOSUB44! LPRINT"M"+XY$i RETUR 
N 

32 G0SUB48! LPRINT"D"+PT$i RETURN 

41 A* a U$+STRING*(20-LEN(A*)/2," ")+A*+EL 
♦: RETURN 

42 IE$=STRING$ (8-LEN ( IE4) ") +IE$: RETUR 
N 

43 PN$=LEFT$(STR$ (A#) ,7) ! RETURN 

44 X Y$=STR$ ( A ! ) + ■ , "+STR4 < B ! ) : RETURN 

45 AX4="X0 , "+STR4 < I ) + " , "+STR4 ( J ) i RETURN 

46 AY*="Xl, M +STR*m+'V+STR$(J) l RETURN 

47 CW ! =480/ (80/(1 +A ! > ) s RETURN 

48 PT$=STR*( <Y!-SY>#FY)+ V'+STR$( <-X ! +SX 
) *F X ) s RETURN 

71 TX*»CHR$ (17)! GR*»CHR* ( 1 8) a RPMCHR* (29 
) :XA=840:YA«240 
95 DIM X (64) , Y (64) 

100 CLOSE! CLS 

110 A*=R*+" CGP-1 15 Plot Generator "+U*i 
GOSUB41 : PRINTUf; A$ 

120 PRINTB85,U$" Enter File to Plot ! 

“R; STRING! (12,8); : LINE INPUT IN 
$! IF IN$* NH THEN 9999 

122 IF LEN(IN$)>4 THEN 120 ELSE A*LEFT*( 
INI, 1 ): IF A< "A “OR A>"Z" THEN 120 

124 IF MD a 16 THEN ID$=IN*+"/LIN" ELSE IF 
MD»100THEN ID$ a IN$+“F. DO" 

125 IE**IN* 

130 GOSUB9000! IFST*0THEN120 
140 GOSUB6500 

190 A$»" Press ENTER key to start plotti 
ng " ! G0SUB41 ! PR INTB160 , At; : LINE INPUT INI 

191 IFIN$="H"THENRUNELSEA$="Plotting ... 
" : G0SUB41 : PRINTB240, A$; 

199 GOTO2000 
300 

310 IFTT$“""THENRETURN 
320 L*LEN(TT$) 

330 CL»80/(1+SZ) 

340 CW=480/CL 

350 Y=- (XA/2) +L/2#CW 

360 X0=X: Y0 a Y! 60SUB31 ! LPRINT"S"+CHRI (48+ 
SZ) !LPRINT"Q1 "!LPRINT"P"+TT$ 

370 RETURN 
400 

410 IFTT$=“ "THENRETURN 
420 L=LEN (TTf ) 

430 CL*80/ ( 1 +SZ ) 

440 CW=480/CL 
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450 X» < VA/2) -L/2*CW 

460 X0 B Xs Y0 B Ys 60SUB31 s LPRINT”S“+CHR!(48+ 
SZ>bLPRINT' , Q0"iLPRINT”P"+TT! 

470 RETURN 
500 ' 

505 I FLEFT* (R» , 1 ) ■= " "THENR! B MID! (R*,2) 

510 IF LEFT! (R!, 1 ) ■ " ANDABS ( VAL (R!) ) < 1 • 0 
THENR$*"-0"+MID$<R*,2) 

515 D 1“ INSTR (R! , " . M ) l D2“ INSTR (FZ! , " . " ) 

520 IF D2*0 AND D1O0 THEN Rf=NID$ (R!, 1 , 
Dl-1) 

525 IF D1*0 AND D2O0 THEN R! B R!+" . " 8 D3» 
LEN(MID!(FZ!,D2+1) > b IF D3O0 THEN R!*R!+ 
STRING! (DS/O" ) sDl = INSTR (R!,". "> S0OTO535 
530 IF Dl=l AND D2>D1 THEN R!“STRING! (D2 
-Dl-1 , " " )+"0 M +R!«Dl*INSTR(R!, " . M ) 

535 IF D2«0 THEN 560 
540 

545 D3 b LEN(MID!(R!,D1+1> ) 8 D4“LEN (HID! (FZ 
!,D2+1>) 

550 IF D3<D4 THEN R!»R!+STRING! (D4-D3, "0 

") 

555 IF D3>D4 THEN R!*MID! (R!, 1 ,D1+D4) 

560 ' 

565 D3“D1-1 i D4=D2-1 

570 IF D3*-l THEN D3*LEN (R!) 

575 IF D4*-l THEN D4*LEN (FZ!) 

580 IF D3<D4 THEN R! B STRING! (D4-D3 , " ")+ 

R! 

585 IF D3>D4 THEN R!=RIGHT! (R! , LEN (FZ!) ) 
590 RETURN 
600 ' 

610 J“1 

620 IFMID! (R!, J , 1 ) *" "THENJ*J+1 8 GOTO620 
630 R!“HID!(R!, J) >XJ*LEN(R!) i RETURN 
800 ' 

810 LPR I NT" S0" 8 X*PX(LI) » Y=PY<LI) iX ! a X: Y! 
®Y J G0SUB48 b LPRINT*H"+PT! 

812 IFMN! (LI ) B “ "THENX*X+60/FXj G 0SUB32: X* 
X-60/FX s GOSUB32! X“X+60/FX 8 GOSUB328 G0T082 
0 

815 X a X + 15/FX:X!*Xs G0SUB32I Y=Y-4 /FY i Y ! *Y 
i G0SUB48! LPRINT”M*+PT! 

816 LPRINT" P" +MN! (LI)jY a Y+4/FYsY! s Y» GOSU 
B48s LPR INT“M" +PT! 

817 X=X+15/FXtX!*Xi G0SUB32 : Y b Y-4/FYbX! b X 
: Y ! ®Y j G0SUB48: LPRINT"H"+PT! 

818 LPRINT "P"+MN! (LI) 3 Y=Y+4/FY« X ! B X 8 Y ! “Y 
■ G0SUB48: LPRINT"M"+PT!: X a X+15/FXsXI“XiY! 
=Yi 60SUB32 

820 Y=Y-8/FYsX! B X:Y! =Y s G0SUB48i LPRINT"N" 
+PT!:LPRINT"S"+PS!jLPRINT"P h +LN!(LI) jRE 
TURN 
2000 ' 

2010 LPRINTGR!i LPRINT"A” ! LPRINT GR!iLPRIN 
T"C0" : LPRINT*L0" 

2020 X0 B 03Y0 B 0sXl B 480sYl B -999 

2030 Y* Y 1 s GOSUB30: X»X 1 1 GOSUB30 I Y b Y0b GOSU 

B30: X=X0! GOSUB30 

2040 X B 1208 Y“-120s G0SUB31 1 LPRINT" I " 


2050 TT!»T0!iSZ»2l X«300: GOSUB300 

2060 TT!*T1!jSZ*Ij X b 2608 GOSUB300 

2070 NX*UX#TXjNY"UY#TYsDX“-XA/NXsDY*YA/N 

Y 

2073 IFDXOINT(DX) THENXA*INT (ABS(DX) >#NX 
l GOTO2070 

2074 IFDY< >INT <DY> THENYA-INT < ABS (DY> ) #NY 
3 6OTO2070 

2075 FX-XA/ (LX ! -SX) J FY*YA/ (LY ! -SY) 

2080 LPR I NT "H" 8 I*DXj J»NX 3 G0SUB45) LPRINT 
AX!bLPRINT"H"s I b DY b J b NY 3 G0SUB463 LPRINTAY 
! 

2090 FZ!«FY!j LPRI NT“S 1 " l LPRINT "81 FORI" 

0 TO UYs R!»STR! (SY+I# (LY ! — S Y ) /UY ) i G0SUB5 
008 X— 8+I*DY*TYsY =+45 

2100 A ! B Xs B! “Ys GOSUB44sLPRINT"H" + XY!8 LPR 
INT"P"+R!s NEXTI 

2110 TT! B YL!sSZ B l3 Y*75 s GOSUB400 
2130 FZ!“FX!8 LPRINT m S 1"8 LPR I NT "Ql " s FOR I s 
0 TO UX 3 R!“STR! (SX + I* (LX !— SX) /UX> 3 G0SUB5 
003 6OSUB600 

2135 X»-25: A ! B 1 : GOSUB47s Y“I#DX*TX+XJ/2*C 
W ! -3 

2140 A ! B X 8 B ! b Yb G0SUB44b LPR INT"M"+X Y!3 LPR 
INT m P"+R!bNEXTI 

2150 TT! s XL!sSZ b 1 b X b -908 GOSUB300 
2160 IFGD! B "N"THEN2200 

2165 X*YAs Y b 0b G0SUB31 8 Y b -XAs GOSUB308 X“08 
6OSUB30 

2170 X*08 Y=-XA 

2175 Y»Y-DX#TXb IFY> b 0THEN2190ELSEGOSUB31 
3 X b YAb 6OSUB30 

2180 Y»Y-DX#TX 3 IFY> b 0THEN2190ELSEGOSUB31 
s X = 0 3 GOSUB30 
2185 G0T021 75 
2190 X B 03 Y*0 

2192 X-X+DY*TY 8 IFX >»YATHEN2200ELSEGOSUB3 
1 3 Y=-XAb GOSUB30 

2195 X»X+DY*TY3 IFX > b YATHEN2200ELSEGOSUB3 
1 b Y b 0 3 GOSUB30 
2197 G0T02192 
2200 ' 

2205 IFHD b 16THENID! b IE!+"/DAT"ELSEID! b IE 
!+"D. DO” 

2207 GOSUB9000S IFST b 0THENGOSUB9400s GOTO l 
00 

2210 LI“0s INPUT#1,DUX 

2230 LPRINT "H H 8LI*LI+l8NN B N3(LI) 8 IFNN“0T 
HENNN-999 

2240 FOR M b 1 TO N3(LI) 

2245 INPUTttl , XI ,Yls IFX1“999.999ANDY1 B 999 
. 999ANDM=1 THEN2245 ' search for start 
2250 X (M) b X1sY(M)— Y ls IF N3(LI)<999 THEN 
2270 

2260 IF X (M) “999.999 AND Y(H)“999.999 TH 
EN 2280 
2270 NEXT M 

2280 LPRINT“C"+PC!(LI) 3 LPRINT"L"+L! (LI ) 
'select pen, line type 

2285 IFX ( 1 ) >LX ! ORY ( 1 ) >LY ! THENEM! B "Starti 
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ng coordinates do not lie Mithin grid bo 

under ies" iGOSUB9200iGOTO100 

2287 GOSUB800 'draw line title 

2290 X»X < 1 ) i Y*Y < 1 ) i X ! -Xi Y ! *Yi G0SUB48I LPR 

INT"M"+PT$i LPRINT"S 0 " 

2300 F0RI«2T0M-1 lX*X(I)sY«Y(I)i IFX ( I ) >LX 
! ORY < I ) >LY ! THEN2320 

2310 X!«X»Y!»YjG 0SUB32« IFNNt (LI ) <>" "THEN 
X-X-2 /FX j Y«Y-4/FY:X!-X:Y!»YjG0SUB48iLPRI 
NT"M"+PTItLPR I NT "P*MN$ ( L I ) j X-X+2/FX t Y»Y+ 
4/FYiX!“X«Y!»Y» G0SUB48 i LPRINT "M"+PT$ 

2320 NEXTI 

2330 IFGI (LI) »"Y"THEN2230 
2999 A!=0rB!— 999»G0SUB44iLPRINT"M"+XYIi 
LPRINT" A" i LPRINT i RUN 
6500 ' 

6505 GOSUB9300 

6510 INPUT#1,T0*,T1*,XL»,YL*,GD$ ,UX,UY,S 
X,LX! ,SY,LY! ,TX,TY,Q,FX*,FY*,MK*,PS$ 

6520 F0RI=1 TOQt INPUT41 , L$ ( I ) , LN$ i I ) , Gf ( I 

) , N3 ( I ) , PCf <I) , MN$ ( I ) , PX ( I ) , PY ( I ) t NEXTI 

6530 CLOSEsRETURN 

7000 'end 

7010 STOP 

9000 'fileid 

9010 ONERRORGOTO9100 

9030 ST s l 8 IFMD»16.THEN0PEN" I " , 1 , ID$ ELSE 
QPEN"RAMi "+ID* FOR INPUT AS 1 
9040 RETURN 

9100 IF ERR*52 THEN ST®0s GOSUB9400! RESUM 
E 9040 

9110 PRINTjPRINT-Error #"ERRj "in line"ER 
LiSTOP 

9200 CLSs PRINTEMl! STOP 

9300 FORI*1TO10sN3(I)=-999sAB$(I)*"A"jG$ 

( I ) »" N" i LN$ ( I ) ■ " " : L$ ( I ) » " " i PC$ ( I ) * " H j MN$ 

9310 PX ( I ) ®999. 999: PY ( I ) *999. 999» NEXTI i R 
ETURN 

9400 A$«U$+"File "+R 1 +" "+IDf+" M +Uf+" d 
oes not exist. " 

9410 PRINT0164," " A$ j t A$="Press any key 

to continue H tPRINT«246,A*| sLINEINPUTIN 
I: RUN 

9999 CLS* IF MD-16 THEN END ELSE MENU 

10000 IF ERR=56 THEN RESUME ELSE ON ERRO 
R GOTO 0 


Listing 2: 

"RESPONSE FREQUENCY VS. TIME" 
/‘DEMONSTRATION PLOT", "TIME (seconds)" 
/‘RESPONSE", N, 10 , 5 , 0 , 10 , 0 , 1.0 
,2,4,2 ,«».tt,«.*,Y,le 
8,Y*l+.3e(-2T)+2Te(-T)+4e(-T)-5.3e(-.5T) 
i Y , 21 , 1 , X , 4 , 0.3 e 
0 , Y=1 -e (-0. 337T) ,N, 21 ,2,0, 4 , 0.2 e 


Listing 3: 


2 


0.0, 

0 

0.5, 

.01537 

1.0, 

.03326 

1.5, 

.07330 

2.0, 

.13841 

2.5, 

.22231 

3.0, 

.31602 

3.5, 

.41144 

4.0, 

.50261 

4.5, 

.58583 

5.0, 

.65929 

5.5, 

.72248 

6.0, 

.77579 

6.5, 

.82005 

7.0, 

.85636 

7.5, 

.88586 

8.0, 

.90963 

8.5, 

.92867 

9.0, 

.94383 

9.5, 

.95586 

10.0, 

.96537 

999.999 , 999 

0.0, 

0 

0.5, 

. 15506 

1.0, 

.28609 

1.5, 

.39679 

2.0, 

.49033 

2.5, 

.56936 

3.0, 

.63614 

3.5, 

.69256 

4.0, 

.74024 

4.5, 

.78052 

5.0, 

.81455 

5.5, 

.84331 

6.0, 

.86760 

6.5, 

.88813 

7.0, 

.90548 

7.5, 

.92014 

8.0, 

.93252 

8.5, 

.94298 

9.0, 

.95182 

9.5, 

.95929 

10.0, 

.96561 


999.999 , 999.999 


Listing 4: 

5 OPEN "TESTD.DO" FOR OUTPUT AS 1 
10 F0RI-1T02 
20 FORX-0 TO 10 STEP .5 
30 ON I GOTO 40,50 

40 Y=1+.3#EXP(-2*X)+2»X#EXP(-X)+4#EXP(-X 
)-5.3#EXP(-.5*X)s GOTO60 
50 Y=1-EXP (- 0 . 3 37 # X ) 

60 PRINTXj ","}LEFT*<STR$<Y> ,7) 

70 PRINT#1, USING "##.#" j X{ : PR INT# 1 ,“, " 5 LE 
FT$ (STRt (Y) ,7) 

78 NEXTX 

79 PR I NT# 1 , "999. 999 , 999. 999" s PRINT"999 
.999 , 999.999" 

80 NEXTI 
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Telecommunications 
and the Model 100 

By Bob Rosen 


T he Radio Shack Model 100 is a 
forerunner to a new generation of 
briefcase computers. I have travel- 
ed with a Color Computer, and after a 
while found it to be quite a hassle. 

Before buying the Model 100, 1 saw 
many features I wish I had available 
before. I spend a lot of time on air- 
planes, and the Model 100 would seem 
an excellent way to type in long listings 
for any computer and then upload them 
later. The text editor is excellent; I’m 
glad to see it in ROM. The BASIC looks 
fantastic, with plenty of 1/ O commands 
for the RS-232 and modem ports; with 
16-digit precision, it’s great for scientific 
applications. 

The area I was mainly interested in 
was the telecom features, and the bal- 
ance of this review will concentrate on 
that area. First, I was using an 8K 
machine which booted up and allowed 
only about 5K for the user. I called up a 
BBS that had download programs on it 
and felt that it filled up too fast. As far 
as I’m concerned, the memory upgrades 
are somewhat expensive, but competi- 
tion from the prophesied Model 100 
lookalikes will probably take care of 
that problem. Five K is just not enough 
memory for any serious telecom work. 
If you are serious about this, 32K of 
memory is — in my opinion — a must. 

I hooked the 100 to my Color Com- 
puter with no problems. I loaded up 
ColorCom/E in my Color Computer 
and easily downloaded a small text pro- 
gram from the Model 100; going the 
other way was just as easy. When I tried 
chatting with another CoCo user, I ran 
into a problem in that I was unable to 
get the Model 100 to line feed. I’m sure 


(Bob Rosen is president of Spec- 
trum Projects and runs three 
Color Computer bulletin boards.) 


that two Model 100s connected together 
would have twice the problem. It would 
have been nice if Radio Shack had built 
in a user selectable automatic line feed 
insert capability at least to give its own 
display a line feed. A good example of a 
telecom program with this capability is 
Eigen’s ColorCom/E. 

I connected the modem cable to the 
Model 100 and had no problem check- 
ing into several bulletin boards. My real 
disappointment came when I tried to 
upload a file. A couple of bulletin 
boards took the file without problems, 
but several of them would drop charac- 
ters at the beginning of each line during 
an upload. I noticed there was no pause 
between lines sent from the Model 100, 
and apparently most BBS’s do a little 
processing between each line received. 

1 tried uploading to a Flex system, 
using the BUILD command, and I was 
completely out of luck because the 
BUILD utility does a disk access after 
each carriage return. An option to send 
a line at a time would have been helpful, 
as well as some sort of programmable 
line delay. I even ran into an Atari- 
based BBS that wouldn’t read any char- 
acters at all because it seemed to have a 
certain amount of intercharacter delay. 

The bottom line of all this is that the 
upload feature is going to need a little 
work before it is universally usable. 
Tandy should have field tested this fea- 
ture on something besides a Model II 
and CompuServe. 

As far as the attractive features of the 
machine are concerned, the download 
feature worked well. 1 really liked the 
constant memory feature. I had to shut 
the computer off in a hurry several 
times, and the ability to store and call up 
numerous files without disk or tape 
adds real value. The Model 100 is 
impressive looking and fits well in an 
office. It’s nice to be able to take a com- 
puter to work without having to rent a 


truck. The 40 x 8 display is easy to read, 
and I really liked the ability of the dis- 
play to flip to the previous page of text 
during the telecom mode. I wish Radio 
Shack had incorporated this into the 
text editor. I also really liked the auto 
dial feature; it worked satisfactorily for 
me dialing at 20 pulses per second, 
although it can be slowed down to 10 
PPS. 

A few other things I observed about 
the machine that might be useful to the 
potential buyer are listed here. I re- 
moved a cover on the bottom of the 
machine and found a ROM socket (I 
hope they will sell a spreadsheet soon) 
and a bus connector. I would like to see 
some articles pertaining to the use of 
that bus connector, as well as theory of 
operation for these new low power 
chips. I would like to point out that the 
cassette cable is the same as the one used 
on the Color Computer, and the Model 
100 loads at the same rate (1500 baud) 
as the Color Computer, which is really 
quite good. One other thing I noticed is 
that the modem seemed a little insensi- 
tive when trying to receive. 1 was using a 
marginal phone line and was able to 
transmit just fine; however, everything I 
received was garbage. A different mo- 
dem and terminal on the same line yield- 
ed good results. 

To sum it all up, 1 believe the Model 
100 is a good computer with lots of 
potential — with a little work, it could be 
a great computer. I mean for the criti- 
cism in this article to be constructive, 
and I hope that The Shack will bring 
about enhancements quickly. Other- 
wise, we will again have to rely on out- 
side vendors. I’m not so sure that other 
manufacturers will leave such a fantas- 
tic concept alone for very long. I forsee 
several Model 100 lookalikes ready for 
release before Christmas. Maybe by the 
time this article is released we will see 
one. nren 
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Financial Ratios Can Help 
Determine Corporate ‘Soundness’ 


By Vincent Lord 


F inancial ratios are conveniently 
used to determine the manner in 
which a company is operated. If 
you deal with investments, such ratios 
are useful guidelines to determine the 
financial condition of the company. 
Since these ratios are based upon the 
balance sheet, the data you need is often 
published with the annual report. The 


net profit to sales ratio and the return on 
investment ratio are two means of 
determining profitability; the current 
ratio is a statement of liquidity. The 
program listed below allows the calcula- 
tion of the ratios which when compared 
with previous years’ ratios can help 
determine the “soundness” of a 
company. 


The program will accommodate 
numbers up to those of the largest U. S. 
corporation without the unnecessary 
“cents.” The output is in the form of 
fractions. If you wish to express the 
results in percentage, change lines 260, 
360, and 460 to PRINT USING “###.#+” 
;XX* 100, where XX is the ratio, i.e. PS, 
RI, or CR. Good luck with your 
investments. 


The listing: 

10 CLEAR 100 

15 A* 3 " ###*#*###*#####*#*#######" 

20 CLS: PRINT"****BUSINESS RATIOS###*" 

30 PRINT" (1) NET PROFIT ON SALES RATIO" 
40 PRINT" (2) RETURN ON INVESTMENT" 

50 PRINT" (3) CURRENT RATIO" 

55 PRINT" (4) END PROGRAM" 

60 PRINT"SELECT 1, 2, 3, OR 4"; 

70 N*»INKEY* 

80 IF N$="" THEN 70 

90 ON VAL(N«) G0SUB 200,300,400,999 

100 GOTO 20 

200 REM###NET PROFIT ON SALES#*# 

210 CLS 

215 PRINT"*#*NET PROFIT ON SALES*##" 

220 INPUT"NET PROFIT " j NP 
230 INPUT"NET SALES "{NS 
240 PS*NP/NS 
250 PRINT A$ 

260 PRINTjPRINT"NET PROFIT ON SALE"{iPRI 
NT USING "###.###+"}PS 
270 G0SUB 550 
280 RETURN 

300 REM#*#RETURN ON INVESTMENT# 

310 CLS 

315 PRINT"*##RETURN ON INVESTMENT#*#" 


320 INPUT"NET PROFIT "{NP 
330 INPUT"T0TAL INVESTED CAPITAL "}TC 
340 RI*NP/TC 
350 PRINT A* 

360 PRINT: PR I NT "RETURN ON INVESTMENT" } : P 
RINT USING "### . ###+" } RI 
370 60SUB 550 

399 RETURN 

400 REM###CURRENT RATIO#*# 

410 CLS 

415 PRINT"###CURRENT ASSETS##*" 

420 INPUT"CURRENT ASSETS "{CA 
430 INPUT"CURRENT LIABILITIES "}CL 
440 CR*CA/CL 
450 PRINT A* 

460 PRINT: PR I NT "CURRENT RATIO" j: PRINT US 
ING"###. ###+" ; CR 
470 G0SUB 550 
480 RETURN 

550 PRINT: PR I NT "PRESS <ENTER> TO RETURN 
TO MENU" ; 

560 IF INKEY#*CHR$ (13) THENRETURN ELSE 5 
60 

570 RETURN 
999 MENU 

GH3 
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All work and no play makes Jack a dull boy 


NOW YOU CAN HAVE 
FUN WITH YOUR 
24K MODEL 100 

4 games for your enjoyment: 

BLOCKADE — Your 'snake' grows longer as 
you hit the randomly appearing targets on the 
screen — as long as you don't run into yourself, 
a wall, or your opponent! A one or two player 
real-time game with optional sound and three 
speeds of play. 



REVERSI — A 'board' game in which you try to outflank your 
opponent to end up with the most squares at game's end. Play against 
the computer or another human. 


FRANKENSTEIN ADVENTURE — Find all of the necessary 
equipment to awaken the monster. The clues are hidden and the pitfalls 
are many! 

ALEXIS ADVENTURE — Sail the seas and traverse the islands to 
recapture your kingdom. Chart your course or you may sail on forever! 


PCM 


CERTIFICATION 

SEAL 




T.M. 


— a lot of software for a little silver 


All four games on tape for only $24.95 Silverware PO Box 21101 

Calif, residents add 6% tax, overseas add Si. 00 shipping Santa Barbara, CA 93121 


Mastercard & Visa 


Dealer inquiries invited 


(805) 966-1449 




CTRL 


CAPS 

LOCK 


SHIFT 


SB 









Radio Shack’s New 
TRS-80® Model 100 
Portable Computer 
Is Sending Shockwaves 
Throughout the Industry 



8K TRS-80 Model 100 24K TRS-80 Model 100 


Only $54 a Month Only $68 a Month 

on CitiLine Credit on CitiLine Credit 


■ Powerful Built-In Software 
and Extended BASIC Language 

■ Self-Contained Direct-Connect 
Telephone Modem 

■ 8-Line by 40-Character Display 

■ Full-Size Typewriter Keyboard 

■ Retains Data When Power “Off” 

■ Memory Expands to 32K 

Brace yourself— Radio Shack just redefined the 
concept of personal computing. Our new TRS-80 
Model 100 is so small, it’ll fit in your in-basket. 

Yet, it’s as powerful as many desktop micros. The 
built-in BASIC language is the most advanced 
ever from Microsoft®, and features full string han- 
dling, complete file operations, multi-dimension 
arrays, 14-digit double-precision accuracy, 

240 x 64 dot-addressable graphics, a five-octave 
sound generator and much more. The Model 100 
includes a parallel printer port, an RS-232C serial 
interface and a cassette port. Model 100’s built-in 
direct-connect modem even allows you to access 
any computer by phone. If you’re not a program- 
mer, “instant-on” software in ROM lets you use 
your Model 100 as a personal word processor, 
telephone auto-dialer, address book and appoint- 
ment calendar. Come see the most revolutionary 
computer since the TRS-80 Model I at over 6500 
Radio Shack stores and participating dealers, in- 
cluding over 400 Radio Shack Computer Centers 
nationwide. 


Radio /hack 

The biggest name in little computers® 

A DIVISION OF TANDY CORPORATION 




1 

Send me a free TRS-80 Model 100 brochure. J 

Mail To: Radio Shack, Dept. 84-A-14 | 

300 One Tandy Center, Fort Worth, Texas 76102 

name. • 

ADDRESS — — 1 


CITY STATE ZIP | 

TELEPHONE — I 

J 


Prices apply at participating Radio Shack stores and dealers. Microsoft is a 
registered trademark of Microsoft, Inc. 







Glancing at the 

New 100's 

Version of 

BASIC 



W ell, I’ve just sat down and taken a good look at the Model 
100’s version of BASIC that (as with all other TRS-80s) was 
developed by none other than our good friends at Micro- 
soft. This version of BASIC has a few new commands and that’s what 
we’re going to examine today. While there are many new and special- 
ized commands available for such esoteric uses as accessing the 
communications port, renaming and merging files, etc., I’m going to 
key on those commands that the “average” BASIC programmer (if 
there is such a thing) will find the most useful and interesting. 

Looking at all the commands available (in alphabetical order), the 
first “stranger” I see is the BEEP command .Using this command will 
cause the sound generator in the Model 100 to emit a tone for >/$ 
second. This certainly comes in handy when designing a program to 
signal a user when he or she has made an error. Say, for example, that 
we have use for a subroutine that requests a response to a “yes or no” 
type question; the following routine could be used to prompt the user 
with an audible tone that a “Y” or “N” was not entered: 

100 LINE INPUT A$ 

1 10 IF A$=“Y” OR A$=“N” THEN RETURN 
120 BEEP 
130 GOTO 100 

The next new command I see is the CALL command. This is used 
to call a machine language program in much the same way that the 
Model I, II, III, etc., uses the USR statement. The syntax of the 
CALL command is: 

CALL address,expression 1 ,expression2 
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where address is the decimal address of 
the beginning of the machine language 
program. Expression 1 is optional and, 
if used, passes an integer argument to be 
loaded into the “A” register prior to 
jumping to the machine language rou- 
tine. Expression2 is also optional and, if 
specified, will load the HL register pair 
with the integer number specified; an 
excellent method of passing the begin- 
ning address of an array or stack poin- 
ter. If you’re planning to write some 
nifty sorting or block move type of rou- 
tines in machine language, this is the 
way to go! This command supplies the 
machine language programmer with a 
more useful tool than the familiar USR 
function in that now two arguments can 
be passed to the machine language 
program. 

One of the new functions the Model 
100 has to offer is CSRL1N. This varia- 
ble name is reserved to contain the 
numeric value of the current line posi- 
tion (0—7) of the cursor; this might 
come in handy if designing a game or 
drawing program where the user is try- 
ing to produce a screen format. A cou- 
ple of other new variable names are 
DAYS and DATES; these contain the 
first three letters of the day (Mon, Tue, 
etc.) and the day as MM/DD/YY 
respectively. Incidentally, these (DAYS 
and DATES) can appear on the left side 
of an equation to set the day and date. 

The FILES command lists to the 
video display all Model 100 files that are 
stored in RAM. This is just like issuing a 
DIR command from TRSDOS for you 
TRS-80 disk drive owners. It is interest- 
ing to note that the Model 100 treats 
everything — program, data file, text 
file — as a sequential data file. This 
means, oddly enough, that when you 
are in BASIC and are working on a pre- 
viously saved program, it is an OPEN 
file! You see, the RAM in the Model 100 
is a sort of combination RAM and disk 
drive. Therefore when you type FILES, 
the program that you are working on 
has an asterisk displayed to the right of 
it, indicating it is currently an open file. 
A word to the wise: don’t attempt to 
KILL the program you are currently 
working on. As it is an open file, the 
“operating system” (if you’ll pardon the 
expression) won’t let you KILL it. 
Instead, type NEW, and then KILL 
“filename.” 

For those of you familiar with the 
MEM function, the Model 100 uses a 


different, yet not unknown, command: 
FRE. If used in the form X=FRE(0), 
the variable “X” will contain the 
amount of available memory remain- 
ing. When used as X=FRE(A$) or 
X=FRE(“”), the variable “X” will con- 
tain the amount of unused cleared string 
space. 

Another new command is HI MEM. 
This reserved variable contains the 
address of the highest location in 
memory available to BASIC. As with 
DAYS and DATES described earlier, 
HIM EM can appear on the left side of 
an equation to set the top of BASIC 
memory — a must for the machine lan- 
guage programmer if he wants his code 


and it works like this: X 1 ,Y 1 and X2,Y2 
are the X and Y coordinates of the pix- 
els on the Model 100 LCD display. 
There are 240 pixels across and 64 
down, so any X coordinate must have 
the value 0—239, while the Y coordi- 
nate must contain a number in the range 
0_63. The “switch” parameter, if used, 
indicates how the line, or box is to be 
drawn. If the value of switch is odd, 
BASIC will set the pixels — that is, it will 
make the pixels dark. If switch is even, it 
will reset or clear the pixels. If “B” is 
used, a box will be drawn using the 
X1,Y1 and X2,Y2 coordinates as 
corners of the box. If “F” is specified, 
the box will be filled (or unfilled) as 


"... It is interesting to note that the Model 100 treats 
everything — program, data file, test file — as a sequen- 
tial data file. This means, oddly enough, that when you 
are in basic and are working on a previously saved 
program, it is an OPEN file!” 


protected! 

The KEY command allows the eight 
function keys on the Model 100 (labeled 
F1-F8) to be customized. For example, 
the statement: 

KEY 1, “PRINT FRE(0r+CHR$(13) 

will display the amount of free memory 
available whenever the FI key is 
pressed. This can be entered as an 
immediate command or may appear as 
a line of code in a program. 

There’s a simple command for copy- 
ing the LCD (liquid crystal display) to a 
printer: LCOPY. This will copy a dis- 
play (ignoring graphics symbols) to an 
attached printer. 

Now we’re going to get to the good 
stuff, namely the LINE command. I’m 
used to programming primarily on a 
Model 16, so I don’t have the luxury of 
you CoCo owners of a command such 
as LINE. But the Model 100 LINE 
command is something else. Not only 
will it draw a line from point A to point 
B, but it will also, if requested, draw a 
box, and even fill it in! The command 
syntax is 

LINE (X 1 ,Yl)-(X2,Y2),switch,BF 


specified by “switch. ’’This command is 
going to be a real winner with those of 
you interested in designing grapics pro- 
grams. Watch for an example of this 
command in the next issue of PCM 

The last command I’m going to 
review today is the SOUND command. 
It has the syntax: SOUND pitch, length. 
The variable “pitch” is a numeric value 
in the range of 0 — 16383; “length” must 
have a value of 0 to 255, with 50 equal- 
ing approximately one second. The 
Model 100 manual provides a very nice 
table covering the pitch values needed 
to span five complete octaves, including 
sharps. The SOUND command will be 
discussed further in the first installment 
of “The Music Box,” a regular feature 
which will make its debut in the August 
issue of PCM. 

We’ve tried here to give you a sam- 
pling of some of the new commands 
available to the Model 100’s BASIC 
interpreter. All in all, PoCo’s version of 
BASIC can be summed up as an old 
friend with a fascinating variety of new 
commands to give the BASIC pro- 
grammer the tools needed to make the 
Model 100 operate easily and 
efficiently. CSS 
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File Sorting 
Can be Good, 

But Beware of Pitfalls 



T here is an excellent program in 
the appendix of your Portable 
Computer manual which shows 
you how to sort document files (those 
with a .DO extension). But, there may 
be two problems with the program and 
you are advised to take care before 
using it. 

The main problem is a human one, 
based on the principle that we all make 
mistakes. Many times we find a pro- 
gram will not “run” simply because we 
have made an error in typing it into the 
computer. 

{PCM is attempting to help fight this 
problem by printing all of our longer 
listings in 40-column format — the same 
as your screen display. You can “line 
up” the characters one beneath another 
and that will help you check to see that 
you have typed them correctly.) 

The second problem is the program, 
as written, uses up quite a lot more 
memory than is necessary. This is 
because there are a great number of 
REMark statements in the sample pro- 
gram — and they use memory. While 
excellent for debugging and learning, 
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most of them can be eliminated to save 
memory space. 

However, there are a couple which 
are important to the running of the pro- 
gram. Since this is the most simple prob- 
lem to address, we will talk about it first. 

Saving Memory 

Every line which begins with an apos- 
trophe (’) can be eliminated from the 
program listing which begins on page 
202 of the manual, “Sample Session #3: 
Sorting .DO Files With A BASIC Pro- 
gram”, except for the following: 

2000 ’ 

3000 ’ 

The reason these two lines cannot be 
eliminated is because they are used to 
call subroutines in Lines 1130, 1300, 
1320 and 1610. If you eliminate these 
two lines, the subroutines will have 
nowhere to go, and you will get an ?UL 
ERROR. 

An alternate way of handling this 
would be to change all of the GOSUB 
2000 commands to GOSUB 2030 and 
the GOSUB 3000 command to GOSUB 
3030. Take your choice, but it is usually 
easier to leave in Lines like 2000 and 
3000 as dummy lines. It also makes your 
programming cleaner in that you begin 
subroutines on even numbers. 

Beware The KILL 

Of greater concern is Line 1645, 
which tells the Portable Computer to 
KILL the old file before the new file is 
written. 

The fact of the matter is that by the 
time you get to Line 1 645, you are in the 
last stages of your program, and the 
chances that you have done something 
wrong are pretty small. But, Murphy’s 
First Law (“If Anything Can Go 
Wrong, It Will”) probably applies in 
computer programming more than 
anywhere else in the world. And this is a 
perfect example of how old Murphy can 
run rampant through your RAM! 

For the sake of discussion, let’s just 
assume you typed in Line 1650 with an 
error — you just hit the wrong key or 
something. 

The program would have KILLed 
your old document file in Line 1 645, but 
then would break out of program exe- 
cution at Line 1 650 because of the error. 
And, as soon as you edit the offending 
line, you lose the array which has all the 
information in your document file 
stored in memory. 

Have you got troubles! 

Suppose you spent two hours putting 


in names, addresses and telephone 
numbers into an ADRS.DO file the day 
before. Then, you decided to sort it with 
this program. All of a sudden, Murphy 
has wiped out your two hours worth of 
typing in one fell swoop of a ?SN error. 

What you have to do is make sure 
your sorting program works exactly 
right before you try it on any “live” files. 
Or, you have to make a backup copy of 
the original file. 

Making the backup is easier, but not 
as much fun. All you need to do is type 
in CSAVE “ADRS” ENTER and your 
file will be saved on tape. Then, if the 
worst happens, just re-load the file back 
into memory with CLOAD “ADRS” 
ENTER. 

But there is another way to do it, too. 
And you can have more fun with that. 

The Fun Way 

What we need to do is create a test file 


and then use that for debugging the sort- 
ing program. Go to the main menu and 
call up the TEXT program. This will 
allow you to create a file for testing the 
sorting program. 

Since this is going to be a test, call the 
file TEST. Then, type in your own text 
file. 

We suggest using two or three letters 
of the alphabet for each listing. So, your 
TEST file might look like this: 

zzz 

YYY 

FFF 

TTT 

QQQ 

HHH 

Y ou can, of course, use as many of the 
letters of the alphabet as you want. But 
do not type them in in alphabetical 
order. 

In fact, to see how fast you can sort 
them under a “worst case” situation, 
type the alphabet exactly backwards. 
That will require the computer to han- 


dle each series of letters the maximum 
number of times. 

Now, run the sorting program from 
BASIC. But, instead of using the ADRS 
file, use the TEST file. If you have an 
error that ends up killing your source 
file, all you need to do is create another 
one — something that can be done in a 
minute or two. And, that will save you 
from any problems with your data in the 
ADRS file. 

Once you have the sort working to 
perfection with your TEST data, just 
type in KILL “TEST. DO” and run the 
sort program using your ADRS file. 

More Goodies 

There are some other things you 
could do with this program — or the 
general outline of the program — with 
just a little modification. One of the 
most handy, it seems to us, is to print 
out the contents of the entire file. This 


would involve changing the write to 
RAM subroutine (Lines 1645-1690) to a 
printout subroutine. That way you 
could get a printout of the entire docu- 
ment file and, if you had sorted it first, 
you could have a sorted printout. 

Assuming your file is structured in 
the manner which is suggested by the 
manual, you would also be able to 
change the way the file is set up. As an 
example, let’s just suppose the first ten 
spaces are set up for a last name, the 
next ten for a first name and initial and 
the next eleven for telephone numbers. 
You could rearrange the way the file is 
constructed, using some of the string 
handling commands such as MIDS, 
LEFTS and RIGHTS. And, of course, 
you could print out the rearranged file 
— without even disturbing the original 
file, if you wished to do so. 

We are very impressed with the con- 
struction of the two data base files built 
into the Portable Computer and believe 
there will be many applications which 
will prove useful to its users. QS3 


“ . . . Murphy's First Law (If Anything Can 
Go Wrong, It Will) probably 
applies in computer programming 
more than anywhere else in the world. ” 
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For coffee breeks or unevoidable waits, you can take this little game along. But, be warned, 
you won’t always win when you try to .. . 


Match Wits With Nim 
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A ll work and no play makes even 
a Portable Computer owner a dull 
person — so we offer you a little recrea- 
tion along with all the serious-type goo- 
dies that grace this, our first issue of 
PCM. 

In fact, recreation will be a part of 
PCM each month. When you need a 
little respite from the business trip, if 
you finish your memos before the plane 
lands, or in case you just want to play , 
we hope that these recreational 
moments will be a lot of fun for you. 
Look for them to become a regular part 
of PCM. 

And, what better way to start than 
with a “traditional” computer game that 
will, on one hand, show how smart your 
Portable Computer is and, at the same 
time, show off some of its graphic 
capabilites. The name of the game is 
NIM, and we’re willing to bet that you 
can’t beat the computer (but you 
might). 

NIM is based on the simple principle 
that you and your opponent each take 
turns at taking one or more little people 
away from one of three rows of figures. 
You can take all of the people in a cer- 
tain row — or only one of them. The 
winner is the one who is successful in 
taking the last person or people. You 
cannot take people from more than one 
row at a time, so, as you see, there is a bit 
of planning involved. 

The computer starts out real friendly, 
asking you whether you want to go first 
or not. But, then, it starts playing in 
earnest and won’t give any quarter. See 
whether you can win. 

Note that you do not have to press the 
ENTER key to make any of your com- 
mands work. This version of NIM uses 
a special INKEYS routine that lets you 
just enter a response in most cases. 
When you do have to press ENTER, the 
program will tell you. 

Don’t expect to win the first time out. 
But, you will have an option to play 
again. If you choose not to play again, 
the program returns you to the Model 
100’s Main Menu. 

The people rows are numbered from 
top to bottom, with row one being at the 
top. There are seven people in row one, 
five in row two and three in row three. 
Good luck! 
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The listing: 

18 CLEAR280: DEFINTA-Z 
IS CLS 

20 P(l) 3 140:P(2) 3 222sP(3) *304 
30 N(l)*7:N(2)*5sN(3)*3 
40 X ( 1 ) 3 0: X (2) 3 1 
50 CM»2 

60 IFCM 3 2THENK 3 VAL (RIGHT* (TIME*, 2) ): FORI 
■1 TOK: L 3 RND ( 1 ) : NEXTI 
100 GOSUB1000 

110 I R*3 J I C»4 : GOSUB600: PRINTiQ, "Do you w 
ant"; 

120 IR S 4: I C s 4 s GOSUB600: PRINTiQ, "to go fi 
rst?" ; 

125 IR 3 5: I C 3 8 : 6OSUB600: PRINTiQ, " " ; 

138 PL *0: A! 3 INPUT! ( 1 ) : IFA! 3 " Y"0RA!«"y"TH 
ENPL 3 lELSEIFA! 3 "N"0RA! 3 "n"THENPL 3 2 
135 IF CM=2 AND PL 3 0 THEN BEEPi GOTO 110 
ELSE IF CM 3 1 AND PL=0 THEN 110 
140 PRINTA!; : GOSUB900: GOSUB1200 
150 IR*4: IC=0i GOSUB600: PRINTiQ, STRING! ( 1 
7," " ) i s IR=3: 1 C = 1 :GOSUB600: PRINTiQ,“Q.K. 
Buddy, "; « IR=5i IC 3 1 : 6OSUB600: PRINTiQ , " " ; 
:IFPL 3 1THENPRINT" You"; ELSEPR I NT " I ' 1 1 " ; s E 
X = 1 

160 PRINT" go first 
170 6OSUB900: 6OSUB1200 
190 IF PL=1 THEN 508 
200 'computer 's turn 

205 IFEX=0THENIR 3 5:IC 3 0:GOSUB600: PRINTiQ 
, "Now its my turn " ; : 6OSUB900: PL=2 

206 PRINTiQ , STRING! ( 17 , " " ) ; 

210 EX=0: GOTO240 

220 Jl= (4ANDN ( 1 ) + (4ANDN (2) ) ) /4: J2* (2ANDN 
< 1 ) + (2ANDN (2) ) + (2ANDN (3) ) ) /2: J3= < 1 ANDN ( 1 
) + ( 1 ANDN (2) ) + ( 1 ANDN (3) ) ) : IFINT ( J 1 /2) *2=J 
IAN DINT (J2/2)#2=J2ANDINT ( J3/2) *2 s J3THENS 
T=0ELSEST=1 
230 RETURN 

240 GOSUB220: IFST*0THEN300 ELSE M1»0:M2 3 
0s X=0 

250 F0RI=1T03 

260 IFN ( I ) =0THEN290 

265 F0RJ*1T0N ( I ) : IF X=1 THEN 280 

270 Z*N(I)sY=N(I)-J;N<I) s Y: 6OSUB220: IFST 

*0THENM 1 = 1: M2= J : X = 1 ELSEN < I ) =Z 

280 NEXTJ 

290 NEXTI 

295 IFX=1THEN400 

300 ‘pick randomly 

320 I*RND < X (CM) ) *10: IFI >0ANDI<4THENM1*IE 
LSE320 

325 IFN (Ml ) S 0THEN320 

330 I =RND (X (CM) ) *10: IFI >0ANDI<N (Ml ) +1THE 

NM2=I ELSE330 

350 N (Ml ) *N (Ml ) -M2 

400 'print computer's move 

410 IR=2: I C s 0:GOSUB600: PRINTiQ, "My move 

is:";: GOSUB900 

420 IR*4s GOSUB600: PRINTiQ , "Row *";USING" 
#" ; Ml ; : GOSUB900 


430 IR 3 5i 6OSUB600: PRINTSQ, "Number = " ; M 2 ; 
: GOSUB900 

440 GOSUB1000: IR*7: IC=0: GOSUB600: PRINTiQ 
, "Press any key . . . : A!*INPUT!(1) 

450 CLS: 6OSUB1000 
460 6OSUB700 
500 'player goes 
505 GOSUB220:PL 3 1 

507 IR®3: I C=0 s G0SUB6 00: PRINTSQ, "Your Mov 
e — 

510 IR=5i I C=0 1 GOSUB600: PRINTiQ, "Enter Ro 
w (1-3):"; 

520 A! 3 INPUT! ( 1 ) : X = VAL ( A!) : IF X<1 OR X>3 
THEN 520 

530 IF N ( X ) < 1 THEN 520 ELSE N 3 X:PRINTA!; 
535 I R“ 1 +2*X 1 I C s 34 : GOSUB600: PRINTiQ, "< — 
M 5 

540 IR 3 6: IC=0: GOSUB600: PRINTiQ , "How many 
? " 5 

550 A! 3 INPUT! ( 1 ) : X=VAL ( A!) : IF X<1 OR X>N 
(N) THEN 550 

555 PRINTA!; : GOSUB900: F0RI 3 1T06: IR 3 I:IC» 
0IGOSUB600: PRINTiQ, STRING! (17," " ) ; : NEXT 
I 

560 IR 3 5: IC*3: GOSUB600: PRINTiQ, "O.K. "; 

570 N (N) s N (N) -X : 6OSUB900: CLS: GOSUB 1000: G 

OSUB700: GOTO200 

600 ON CM GOTO 610,620 

610 Q 3 IR*80+IC 

615 GOTO630 

620 Q 3 IR*40+IC 

630 RETURN 

700 'test for end 

710 IFN ( 1 ) »0ANDN (2) »0ANDN (3) 3 0THENONPLGO 
TO 720 , 750ELSERETURN 
720 'player wins 

730 MS! 3 " I don't believe you beat 

me ! " : GOTO770 

750 'computer wins 

768 MS! 3 "Tough luck buddy, better luck n 
ext time!" 

770 CLS: IR=3s IC=0: GOSUB600: PRINTiQ F 
0RI=1T0LEN(MS!) : PRINTMID! (MS! , I , 1 ) ; :FORJ 
=1TO300: NEXTJ: NEXTI 
800 GOSUB900: CLS: IR=3: IC=12: 8OSUB600 
810 PRINTiQ, "Want to try again : ";:A! 3 I 
NPUT ! ( 1 ) 

820 IFA! 3 "Y"QRA! 3 "y"THENRUNELSEIFA!="n "0 

RA! 3 "N"THENMENUELSE810 

900 F0RI=1 TO3000: NEXTI : RETURN 

1000 FOR 1=1 TO 3: N*N ( I ) : P=P ( I ) : IR=P/40: 

IC=P-IR*40: GOSUB600: GOSUB 1 100: NEXT I 

1010 RETURN 

1100 PRINTiQ, STRING!(14," "); s PRINTiQ, " " 
; : IFN=0THENRETURNELSEFORJ 3 1TON: PRINTCHR! 
(147)“ " ; : NEXTJ 
1110 RETURN 

1200 IR=3: IC 3 0: GOSUB600: PRINTiQ, STRING! ( 
20," ") ; : IR=5:GOSUB600: PRINTiQ, STRING! (2 
0," " ) ; : RETURN ™ 
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This Test Will Help 

Your Kids 


format of a DATA statement. 

In the TEST program, the DATA 
lines begin with Line 600 and look like 
this: 


because BASIC recognizes a comma as 
setting apart items in a data list. 

In other words, you do not have to 
put just one question and answer on a 
line. You could just as easily use this 
construction (and we will eliminate the 
quotes here for illustration): 


ne ol the best uses tor a 
microcomputer is its ability to 
in basic 


drill youngsters 
fundamentals. The program listed 
below, TEST , is a perfect example of a 
simple way to accomplish the drilling 
process with your Portable Computer. 

The program will easily run in an 8K 
system, provided you don’t try to cram 
too many questions and answers in the 
DATA statements. In addition, it’s a 
good way to get some of the younger 
members of the family involved in 
computing. 

Two areas of the program will require 
some intervention by you. The first is in 
Line 400, where the number of what we 
call “Data Pairs”are set. As you will see 
in the listing. Line 400 is set to three of 
these data pairs. To expand the pro- 
gram, merely change the 3 in Line 400 to 
the number of questions you want to 
ask. 

The other area is, of course, in setting 
up the questions and answers. One 
question and one answer constitute a 
“Data Pair.” In each pair, the question 
is given first, then the answer in the 


600 DATA “SPELL Four 
610 DATA “SPELL Five" 
620 DATA “SPELL Six’V 


600 DATA Spell Four, Four, Spell 
Five, Five, Spell Six, Six 


What is happening here is that Line 
600 is the first question, which is 
“SPELL Four.” The answer is, of 
course, “Four.” If the test-taker spells 
the word correctly, the Portable Com- 
puter will print “CORRECT.” If spelled 
wrong, it will print “INCORRECT” 
and the correct spelling of the word. The 
test-taker also has the option of deter- 
mining how many questions he/ she will 
be asked. 

We have arbitrarily decided to 
enclose the questions and answers in 
quotes in the DATA statements. This is 
not necessary for a question and answer 
format of this sort. However, if either 
the questions or the answers are to con- 
tain commas, then it will be necessary to 
use the quotes. The reason for this is 


Both constructions work the same 
way, provided you do not use commas 
in the questions or answers. 

Pitfalls 

The primary drawback of a program 
of this type is that it requires the test- 
taker to answer the question exactly as 
the programmed answer. This is, 
frankly, excellent for foreign language 
word drill, math programs and testing 
things like history dates. It can be used 
very effectively in spelling, too, pro- 
vided the student knows the definition 
of the words. Then, the question should 
be the definition, and the test-taker 
must type in the answer with the correct 
spelling. 


Because of this, the program is not particularly suited to 
asking a student to define a word, unless the definitions are 
simple. For instance, if the student were asked for the event 
which occurred in 1066, and you had programmed the 
answer to be “Battle of Hastings”, a response of “The Battle 
of Hastings” or, even “Battle Of Hastings” (large “O” on 
“Of”) would be judged wrong by the computer. This could 
be frustrating to a test-taker, especially when the program 
features a “score” at the end. 

A better way to handle this would be to have the computer 
ask “When Was The Battle of Hastings Fought?”and let the 
test-taker respond with “1066.” Computers are literal. 

Backwards Questions 

The random question-generating feature of this program 
eliminates one of the biggest problems encountered with 
students who drill themselves — they don’t memorize 
answers; instead, they memorize the order in which the 
answers come. By randomizing the questions, this is not 
possible for them to do. 

However, many students also memorize answers one way 
(forwards) and not the other (backwards). As an example, a 
student may know that “gracias” means “thank you,” but 
may not be able to answer the question the other way— as in 
“How do you say ‘Thank You?” 

Backwards questions can be easily programmed in by 
including them twice, simply reversing the question and 
answer in the data pair. An example of this technique is: 

600 DATA gracias, thank you, thank you, gracias 
610 DATA casa, house, house, casa 

We have used this program to drill in French with an 
appreciable increase in student vocabulary test scores. 

The listing: 

1 ' ##**##*#**#***###*#############*#** 

2 * * QUIZ * 

3 ' * FOR THE TRS-80 MODEL 100 * 

4 * * Adapted by * 

5 * * L. C. Falk # 

6 * ft*##*#********##***##*#*#*****##### 

7 * 

10 INPUT "Your Name";NA* 

20 FOR ZZ = 1 TO 1000s READ Q*sIF Q*= "END" 
THEN 30 ELSE Y=Y+1 s READ A$:NEXT 
30 CLSs PRINT: PRINT" Hello, "NA*"!"sPRI 
NTsPRINT” This is a test program. Would 
you liketo be tested?" s INPUT" Please 


answer 

CYles 

or 

CNlo " ; YN$ 


32 

IF YN*="N" 

OR 

YN*="n" THEN 

END 

33 

CLSs 

PRINT" 


If you answer 

the quest 


ions right, you Hill get another. If y 
ou answer wrong, the computer will s 
how you the right answer. “sPRINT” If 
you SPELL the answer wrong, it will 
be wrong." 

34 FOR WQ*1 TO 3000:NEXT WQsFOR N0*1 TO 
10;CLSs PRINTI167, " HERE WE G0!!!"iNE 
XT WQ 

70 CLSsPRINTsPRINT" How many questions 
do you want to try?":INPUTN 
80 DIM S(N) 

90 C*0 


100 N1«0 
110 ' 

120 RESTORE 

230 IF ON THEN 550 

240 OC + 1 

350 CLSs PRINT 

360 PRINT "Question #"C 

370 PRINT STRING® ( 12, ) 

380 PRINT 

400 X=INT (N*RND ( 1 ) ) +1 
420 S(X)=1 
430 FOR Q S 1 TO X 
440 READ Q*, A* 

445 IF Q$="END" THEN OC-1 : GOTO 120 
450 NEXT Q 
460 PRINT Q* 

470 INPUT R$ 

480 IF R$=A* THEN PRINT "CORRECT! 
!"sNl =N 1 + 1: PR INT® 285, ""jsLINE INPUT "Press 
<ENTER> To Continue" }AZ$s GOTO 110 
490 CLSs PRINT "INCORRECT ANSWER !" s PRINT: 
PRINT" The Correct Answer Is 

M 

500 PRINT" "A$: PRINT0285, " " } : LINEINPUT 
■ Press <ENTER> To Continue" j AZ$: G0T01 1 
0 

550 CLSsPRINTsPRINT" Well, "NA$" . . ." 
s PR INT : PRINT “ Qf"N" questions, you ans 
wered"Nl " right." 

560 P=(N1/N)*100:PRINT:PRINTUSING" Tha 
t's ###% Right ! M ; Ps END 

600 '*#*###** Q&A's GO HERE ******** 

601 DATA THANK YOU, GRACIAS, GRACIAS, THANK 
YOU 

602 DATA CASA, HOUSE, HOUSE, CASA 

603 DATA AFTERNOON, TARDE,TARDE, AFTERNOON 

604 DATA N0CHE, NIGHT, NIGHT, N0CHE 

605 YOU'RE WELCOME, DE NADA,DE NADA, YOU 'R 
E WELCOME 

606 DATA YES, SI, SI, YES 

607 DATA NO, NO, NO, NO 

608 DATA MADRE, MOTHER, MOTHER, MADRE 

609 DATA PADRE, FATHER, FATHER, PADRE 

610 DATA TAZA,CUP,CUP, TAZA 

611 DATA ESCRIT0,PEN,PEN,ESCRITQ 

612 DATA D0NDE, WHERE, WHERE, D0NDE 

613 DATA H0MBRE,MAN,MAN,HQMBRE 

614 DATA NINA, BABY, BABY, NINA 

615 DATA HERMOSA, SISTER, SISTER, HERM0SA 

616 DATA HERM0S0, BROTHER, BROTHER, HERM0S0 

617 DATA BONITA, PRETTY, PRETTY, BONITA 

618 DATA LIBRA, BOOK, BOOK, LIBRA 

619 DATA C0CHE,CAR,CAR,C0CHE 

620 DATA BUENO, GOOD, GOOD, BUENO 

621 DATA MUJER, WOMAN, WOMAN, MUJER 

622 DATA DINER0, MONEY, MONEY, DINER0 

623 DATA ONE , UNO , UNO , ONE 

624 DATA TWO , DOS , DOS , TWO 

625 DATA THREE , TRES , TRES , THREE 

626 DATA QUATRO, FOUR, FOUR, QUATRO 
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PRICKLY-PEAR SOFTWARE 

QUALITY PROGRAMS FOR YOUR MODEL 1 00 

PROGRAMS REQUIRE 16K EXTENDED BASIC FOR TAPE, AND 32K DISK UNLESS OTHERWISE NOTED. 



Monsters & Magic 

The most realistic fantasy role-playing game yet for the 
Color Computer.- You start out by rolling upyourcharacter's 
basic ability scores and buying equipment. When you are 
ready it’s into the dungeon. Your character starts at first 
level, but can rise in levels by garnering experience in the 
fray. If you have role-played fantasy games you will be 
amazed at the realism of the combat system. Armor class, 
initiative, and damage by weapon type are all included, 
with over 50 different monsters to fight - each with it’s own 
abilities. As you rise in level you can win treasure and find 
magic weapons and spells - if you live!! You set the game 
length by telling how many monsters you want to fight 
before you reach your final battle to the death against the 
powerful Dungeon Lord. There are 1000+ place descrip- 
tion combinations in this text based game, and real excite- 
ment in every one! This is a fantasy simulation, and is truly 
not like any adventure game you have ever seen. For 1 
player; requires 32K extended BASIC. TAPE - $19.95, 
24K 


Astrology 

Truly a classic, this program will accurately cast your 
complete horoscope. You just enter the date, time, and 
place of birth. The sun sign, rising sign, mid heaven (MC), 
lunar nodes, and planetary influences including houses 
and aspects between the planets will all be calculated, and 
a full chart drawn. You can also do progressed charts and 
transits. It will even tell you the day of the week you were 
born. The accompanying book will help you interpret this 
chart of your horoscope. The extent of the documentation 
is tremendous, even by our exceptionally high standards, 
and no previous knowledge of the subject is required. You 
can share in this wisdom which has been used for thou- 
sands of years in many cultures. This program was written 
by a professional Astrologer. Please specify 16K or 32K 
system. $34.95 tape — 16K 



A simulation for 1 to 4 persons. Each begins as a land- 
owner, and by farming their land, buying and selling land, 
expanding their fishing fleet, building on to their manu- 
factory, increasing their population, equiping and training 
more soldiers, and regulating their taxes, each player tries 
to increase their economic power and rank until one 
becomes ruler over all. But beware plagues, rats, raiders, 
revolts, bad weather, and other misfortunes which may lie 
along the road to success. As you progress, see the map of 
your holdings increase. Playable in 1 to 2 hours, and 
different every time, you may have an addiction problem. 
$19.95 tape - 24K 



If you ever wanted to try a life of crime, this is your chance. 
You will start out as a Punk, but by using brains, and a little 
muscle, you can rise to become a Hood, Runner, Bookie, 
Torpedo, Fence, Kingpin, or win by becoming Syndicate 
Boss. Indulge yourself. Bribe a judge, or the District 
Attorney. Pay off the Cops. Take out a contract on another 
player, but watch out, they may be after you. Buy trucking 
companies, bootleg operations, houses of ill fame, but 
remember, if you get caught, you may do some hard time. 
Do you have what it takes to take over? This game will keep 
you close to your rod, get you thinking about bulletproof 
glass in your car, and definitely bring out the worst in you, 
but you’ll love every minute of it. For 2 to 6 players, takes 
about 2 hours to play. Every game is excitingly different. 
$19.95 tape — 24K 



Your personal check is welcome - no delay. Include 
$1.50 shipping for each program ordered. (Shipping free 
on $50.00 or larger orders). AZ residents add 7% sales 
tax. Orders shipped within two days. 


Stocked by Quality Dealers, or 

Send Order To: PRICKLY-PEAR SOFTWARE 

9234 E. 30th Street 



Tucson, Arizona 85710 


MortwCord 

i 

^ — x_y 

(602) 886-1505 
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On The Road 


By Robert Frowenfeld 
PCM Contributing Editor 



T he emphasis of this column will 
be on programs that can be used 
when the Model 100 user is ex- 
actly that: on the road. Away from plot- 
ters, printers, telephones and the like; 
out in the wilderness, perhaps with 
nothing around you except the hum of 
the bees. Whether you’re on a plane, or 
just simply want to relax with your 
PoCo, this column will provide you 
with both interesting and useful pro- 
grams. Our first article for “On The 
Road” will make the Model 100 gener- 
ate a loan amortization schedule. 

Say you want to buy a car, or a house, 
or maybe you’re wondering how much 
money you can borrow if you’re willing 
to plop down $250 a month for six 
months to buy your girl the diamond 
ring she swears she won’t marry you 
without. Well, this program will do it all 
for you. It’s a loan amortization pro- 
gram — the same type used by financial 
institutions (and your local friendly car 
dealer) to determine the periodic pay- 
ments as well as principle and interest 
credits during the life of a loan. 

The program listed below can be used 
in one of three ways: to find the periodic 
payment, to determine the amount of 
money that can be borrowed (loaned), 
or to compute the number of periods to 
repay a borrowed (or loaned) amount of 
money. 

(Robert Frowenfeld owns his own 
computer programming firm in 
Louisville , Ky ., and has com- 
pleted his graduate coursework in 
Computer Science at the Univer- 
sity of Louisville.) 


In each instance the interest rate must 
be supplied; it is always typed in as a 
whole number, not as a percentage. For 
example, if the interest rate is 12.5 per- 
cent annually, it should be entered as 
1 2.50 and not as 0. 1 25. After the input is 
complete, the program prints out an 
amortization schedule, breaking down 
each period’s payment into its principle 
and interest components. This comes in 
handy at tax time when you need inter- 
est payment figures for your itemized 
deductions. At the end of the program 
are printed totals for the amount of 
principle and interest paid out over the 
entire life of the loan. 

When it is required to compute the 
periodic payment, the user must enter 
the amount of the loan (the principle) 
and the number of periods required to 
repay the loan. You will notice that 1 
constantly refer to the time between 
payments as “periods” and not 
“months.” There’s no particular reason 
for this other than the fact that nowhere 
is it written that a payment occurs once 
a month. It could be once a quarter, 
once a week, or once a year. The pro- 
gram does assume that there are 12 
payment periods per year, but this can 
be changed by redefining the variable 
“PY” on line 15 to be the number of 
payment periods per year. 

The second way the program can be 
used is to determine the amount of 
money that can be loaned or borrowed. 
The information required here is the 
amount of money to be paid in each 
period and the total number of pay- 
ments. This method can prove to be 


rather handy. 

The last mode of running this pro- 
gram is to supply the loan amount along 
with the required payment to compute 
the number of pay periods. 

An example of each of the three 
modes of operation is illustrated below, 
but first a quick lesson in algebra to 
show how the program works. The 
basic formula for computing the peri- 
odic payment is: 

P=V/((l+l)t(-N))/I) 

Where: P = periodic payment 

V = loan value (principle) 

I = interest rate (per period) 

N = number of periods 
♦♦Note: the character “t ” means “raised 
to the power.” 

Solving this equation for ‘ V,’ the princi- 
ple yields the formula: 
V=P*((l-(lTI)t(-N))/ 1) 

In order to solve for the number of 
periods (given the principle ‘V’ and the 
payment ‘P’) requires some fancy foot- 
work. The variable ‘N’ is used as an 
exponent in the equation and therefore 
the log of both sides of the equation 
must be taken. Using the first equation 
above yields: 

P= V* I / ( 1 -( 1 +1 )t (-N)) 

This reduces to: 

V*I / P=l-( 1+I)t(-N) and 

which becomes V*I/P-l=-(l+I)t(-N) 

Taking the log of each side: 

LOG(-( V* 1 / P- 1 ))=-N * LOG( 1+1) 

And finally: 

N=-LOG(-(V* 1 / P- 1 ))/ LOG(ITI) 

This is performed by lines 300-3 1 0 of the 
program. 

One last note: The variable ‘PT$’ is 
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initialized on line 15 to a value of ‘N’; if a printout is desired 
along with the video output, change this value to ‘Y.’ 

Well, there you have it. Follow the example below and 
give it a try with your own numbers. Who knows? Maybe 
you can afford that new house after all! 


Interest Rate : 

10.00% 


Loan 

Value :* 

2,000.00 


# of 

Payments : 

24 


Monthly Payment:* 

92.29 


Pmt# 

Principle 

Interest 

Bal ance 

1 

75.62 

16.67 

1,924.38 

2 

76.25 

16.04 

1,848.13 

3 

76.89 

15.40 

1,771.24 

4 

77.53 

14.76 

1,693.71 

5 

78.18 

14.11 

1,615.53 

6 

78.83 

13.46 

1,536.70 

7 

79.48 

12.81 

1,457.22 

8 

80. 15 

12. 14 

1,377.07 

9 

80.81 

11.48 

1,296.26 

10 

81.49 

10.80 

1,214.77 

11 

82. 17 

10.12 

1,132.60 

12 

82.85 

9.44 

1,049.75 

13 

83.54 

8.75 

966.21 

14 

84.24 

8.05 

881.97 

15 

84.94 

7.35 

797.03 

16 

85.65 

6.64 

711.38 

17 

86.36 

5.93 

625.02 

18 

87.08 

5.21 

537.94 

19 

87.81 

4.48 

450. 13 

20 

88.54 

3.75 

361.59 

21 

89.28 

3.01 

272.31 

22 

90.02 

2.27 

182.29 

23 

90.77 

1.52 

91.52 

24 

91.52 

0.76 

0.00 

Total 

Interest : 

* 214.95 



Total Principle : * 2,000.00 
The listing: 

10 'Loan amortization program 
15 PY=12s PT*="N" 

20 FI**"*#* «,###.## #,#«*.#« **##, 

###.##" 

25 F2*="Pmt# Principle Interest Ba 

lance 

30 F3* = " 


35 CLS 

40 PRINT00, "Interest Rate : 

45 LINE INPUT RT*: RT*VAL <RT*) ; IF RT<*0 0 
R RT>100 THEN GOTO 10 ELSE PRINT816,USIN 
G" ##.##" 5 RT j 

50 PRINT"'/." : X I»RT/ <PY*1 00) 

55 PRINT840, "Loan Value i " j : LINEINP 
UT VL*: VL=VAL (VL*) : IF VL<0 THEN GOTO 55 
60 IF VLO0 THEN PRINT856, USING"*###,### 
. ##" j VL 


65 PRINT880,"# of Payments : "}:LINEINP 
UT PR*: PR*VAL (PR*) 

70 IF PR=0 AND VL*0 THEN 10 
75 IF RT=0 OR VL*0 OR PR=0 THEN PRINT812 
0, "Monthly Payment: "pLINEINPUT PM*:PM» 
VAL (PM*) 

80 IF PM*0 AND < VL*0 OR PR*0) THEN GOTO 
10 

85 IF PM*0 THEN GOTO 90 ELSE IF RT=0 THE 
N GOTO 200 ELSE IF VL=0 THEN SOTO 250 EL 
SE GOTO 300 

90 A#=VL/((1-(1+XI) A (-PR))/XI) 

95 GOSUB 700: PM*A# 

100 PRINT6120, "Monthly Payment: *" j USING" 
#,###. ##";PM; 

150 GOTO 500 
200 GOTO 10 
250 X I *RT / 1 200 

260 A#=PM* ( <1-(1+XI) A (-PR) ) / X I ) 

265 GOSUB 700: VL*A# 

270 PR I N T056 , USING"*### ,###.##" j VL } 

280 GOTO 500 

300 A®VL*X I /PMT— 1 ; B=l+X I 
310 PR*-L0G (-A) /LOG (B) 

320 IF PR >INT (PR) THEN PR=INT(PR)+1 
330 PR I NT 097, USING"###" ; PR; 

500 PRINTS240, "Press any key to continue 
" 5 

501 A**" " : A*= INKEY*: IF A*="" THEN GOTO 5 
01 

503 IF PT*="Y" THEN PR INT0240 , STRI NG* ( 38 
," " ) j : LOOPY 

505 PRINT«240,F2*:PRINTF3* 

506 IF PT*=" Y" THEN LPRINT F2*:LPRINT F3 
* 

510 K=0:NP=0:TI=0: TP=0: VV=VL 

515 FOR 1*1 TO PR: NP*NP+1 : GOSUB 600 

520 PRINT USING F 1*} I j XB; XA; XC 

525 IF PT*=" Y“ THEN LPRINT USING F1*:I:X 

BjXAjXC 

527 A**"":A*=INKEY*:IF A*=" "THEN 530 

528 A*="":A*«INKEY*: IFA*=" "THEN528 
530 NEXT I 

540 PRINT: IF PT*«"Y" THEN LPRINT 
550 PRINT"Total Interest : *"{TI:IF PT*= 
"Y" THEN LPRINT "Total Interest : *«jTI 
555 PRINT"Total Principle: *"}USING"##,# 
##. ## " j TP 

557 IF PT**"Y" THEN LPRINT "Total Princi 
pie : *" j US I NG “##,###.##"} TP 
560 PRINTsEND 

600 A#=VL*X I : GOSUB 700:XA=A#:IF NP*PR TH 
EN XB=XC: XC=0 

610 IF NPOPR THEN XB=PM-XA: XOVL-XB: VL= 
VL-XB 

620 TI=TI+XA:TP*TP+XB 
630 RETURN 

700 A#=INT < 100* (A#+. 005001#) )/ 100: RETURN 
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Software 


Review 


Blockade Requires 
Some Fast Fingers 

Aha, a game for the Portable Compu- 
ter. A game? Yes, a game. 

Actually, Blockade is the first of a 
package of several games from Silver- 
ware, the same people who are behind 
the very popular Chromasette and 
CLOAD tape and disk “magazines” for 
the Models I, III and Color Computer. 
As usual, their offerings are good. 

I believe that Blockade proves that 
there will be no problem with games for 
the Portable Computer. This one is 
patterned after an arcade-type game 
and I want to say that it takes a bit of 
practice to get going. Even after that 
happens, Blockade is a challenge! 

The game is simple in principle: You 
are a little snake on the screen and, 
using four keys, can move up or down, 
left or right. The object is to “hit” little 


targets as they appear randomly on the 
screen. They remain for random periods 
of time, too. 

Each time you do manage to “hit” a 
target, you get a number of points. And, 
while this sounds easy, it isn’t. The rea- 
son for that, simply, is because you can’t 
touch the sides of the screen nor can you 
“doubleback” on yourself. 

Now, this may sound easy, but it is 
not. And, that is especially so because, 
as the saying goes, the better you get the 
more difficult things get to be. In short, 
your little snake grows to be a big snake 
as you begin to accumulate points. You 
run into the ever-increasing danger of 
doubling back over yourself — thereby 
losing points and moving closer to the 
end of the game. 

Blockade can be played with one or 
two players and has three levels of diffi- 
culty. That makes it a handy way to 
learn and impress your friends at the 
office (or your seatmate on an airplane). 


You lose five points when you run 
into something other than a target — be 
that the side of the board, your own 
snake or the other snake. You get a 
random number of points for each 
target hit. And the first person to reach 
100 points wins. However, the first per- 
son to get minus-100 points loses, so 
you can win Blockade without reaching 
100 yourself. 

The one-player game is a real chal- 
lenge and the two-player game can get 
fast and furious. All in all. Blockade is 
fun to play. 

Blockade comes on a tape with three 
other offerings, Reversi , Frankenstein 
Adventure and Alexis Adventure. All 
are specially formatted for the Model 
100 and the remainder will be reviewed 
in future issues of PCM. Stay tuned. 
Silverware, P.O. Box 21101, 
Santa Barbara, CA 93121, $24.95 
plus $1 shipping with three other 
games on same tape.) 


It Doesn’t Cost A Lot To Plot 

with QuickPlot® 



We’ve just given the CGP-115 Color 
Plotter business status. With Quick- 
Plot, your TRS-80 or IBM-PC can 
produce high quality line-, bar-, and 
pie-charts in vivid color. Simple data 
entry and flexible chart formatting 
makes QuickPlot and the CGP-115 
Color Plotter the logical choice for 
the professional who wants to plot 
his profits— not spend them. 

osa 

C£«TIFICAT*ON 

SEAL 


Complete QuickPlot Package Model 11/12/16 $89 

Includes: Bar Chart, Pie Chart, Model 1 1 1/4 $89 

and Line Graph. Data and chart Model 100 $49 

formats save to disk for future IBM-PC/XT $89 

plotting. 


Now you have a friend in the software business. 

2611 Windsor Forest Drive 
Louisville, KY 40272 
(502) 937-4311 



TRS-80 and CGP-1 15 are registered trademarks of Tandy Corporation. PC and 
PC/XT are registered trademarks of IBM Corporation. 


Call or write to place your order or send for free 
information. 
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The Rackseller 


ALABAMA 


KENTUCKY 


Portland 

80-Plus 

Madison 

Madison Books 

Benton 

Anderson Electronics 

PENNSYLVANIA 


ALASKA 


Pikeville 

Gus-Stan Enterprises 

Greensburg 

The Program Store 

Fairbanks 

Electronic World 

MAINE 


Pleasant Hills 

Pittsburgh Computer Store 


Fairbanks News Agency 

South Portland 

Portland News Co. 

SOUTH CAROLINA 


ARIZONA 


MARYLAND 


Greenville 

Palmetto News Co. 

Phoenix 

Road Runner 

Baltimore 

The Program Store 

North 



Computer Pro 

Kensington 

The Program Store 

Charleston 

The Green Dragon 

CALIFORNIA 


MASSACHUSETTS 


TENNESSEE 


Atwater 

Electro Brain 

Cambridge 

The Program Store 

Memphis 

Computer Center 

North 


Littleton 

Computer Plus 

Smyrna 

Delker Electronics, Inc. 

Hollywood 

Levity Distributors 

Marlboro 

Radio Shack 

TEXAS 


DELAWARE 


MICHIGAN 


Austin 

Capitol Micro Computers 

Wilmington 

Normar Inc.— The Smoke Shop 

Novi 

Ml Software Dist., Inc. 


Software & Things 

DISTRICT OF COLUMBIA 

NEBRASKA 


Dallas 

Micro Concepts, Inc. 


The Program Store 

Lincoln 

Hobby Town 

Ft. Worth 

RFI Electronics 

FLORIDA 


NEW HAMPSHIRE 


Irving 

Software Access 

Ft. Lauderdale 

Software Connection 

Manchester 

Brookwrights 

VIRGINIA 


Winter Park 

Independent Computer Systems 

West Lebanon 

Verham News Corp. 

Falls Church 

The Program Store 

GEORGIA 


NEW JERSEY 


WASHINGTON 


Trenton 

The Phone Line 

Hackensack 

Total Circulation Service 

Blaine 

Compulit Dist. 

ILLINOIS 


Midland Park 

Software City 

Richland 

C & J Electronics Computer Center 

Chicago 

Prairie News Agency 

NEW YORK 


WISCONSIN 


INDIANA 


Johnson City 

Unicom Electronics 

Portage 

Sam's Electronics 

Elkhart 

Elkhart City News & Book Store 

OHIO 


CANADA: 


Indianapolis 

Computer Store 

Cincinnati 

Color Software Center 

ALBERTA 


Madison 

Arco Office Supplies 

Columbus 

The Program Store 

Calgary 

Rainbow Software Services 

Scottsburg 

Radio Shack of Scottsburg 

Lakewood 

Lakewood International 

Edmonton 

Kelly's Software Distributors 

KANSAS 


Toledo 

Leo's 

NOVA SCOTIA 


Salina 

Radio Shack 


Reitz Electronics, Inc. 

Halifax 

Atlantic News 

Topeka 

Town Criers of Topeka 

OREGON 


ONTARIO 


Wichita 

Amateur Radio Equipment Co. 

Eugene 

Libra Books, Inc. 

Hamilton 

Galls Book World 


Lloyd's Radio 

Medford 

John's News Stand 




Your Perfect Portable Companion 


Now, here’s your opportun ity to have PCM — The Portable Computing Magazine delivered to your home 
or office each month! 

PCM will bring you the finest and most up-to-date information available anywhere for your TRS-80 
Model 100 Portable Computer. Whether your interest is programming, using the Portable Computer’s 
fabulous built-in functions or communicating with other Portable owners, PCM is for you. 

Each month we’ll bring you a host of articles, ready-to-run programs for business and professional use or 
just plain fun. And each article will be in an easy-to-read style. ..not computerese. 

Subscribe to PCM today! A dozen issues are only $28 ($35 in Canada and Mexico). 


PCM — The Portable Computing Magazine 

9529 U.S. Highway 42 (502) 228-4492 

P.O. Box 209 
Prospect, KY 40059 

YESI Sign me up for a year (12 issues) of Portable Computing 


Name 

Address 

City 

State 

Zip 

□ Payment Enclosed 



Charge □ VISA □ MasterCard 

□ American Express 


Account Nnmher 

Interbank # (MC only) 


Signature 

Card Expiration Date 



Subscriptions to Portable Computing are $28 a year in the United States. 
Canadian and Mexican rate is U.S. $35. Surface rate elsewhere U.S. $64. Air mail wsa 
U.S. $85. All subscriptions begin with the current issue. Please allow 5-6 weeks for 
first copy. 



30 PCM July 1983 



SAVE $100 



on the TRS-80 Model 100 with 8K RAM 
stock #26-3801 

$699 

For quick delivery call: 

SPECTRUM PROJECTS 

93-15 86th DRIVE 
WOODHAVEN, NY 11421 
033 (212) 441-2807 

CERTIFICATION \ / 

SEAL 

Add $4 shipping and handling. N.Y. residents add sales tax. 


Call our Bulletin Board for free Model 100 programs. 


BBS #1 — (212) 441-3755 
BBS #2 — (212) 441-3766 
BBS #3 — (212) 441-5719 






Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They’re a group of people representing a large, 
well-balanced cross section of disciplines— from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high -caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 


make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you’d like a copy of this formidable docu- 
ment, for free, just let us know and well send you 
one. Because once you know what it takes to make 
an Elephant for ANSI . . . 

We think you’ll want us to make some Elephants 
for you. 


ELEPHANT HEAVY DUTY DISKS. 


For a free poster-size portrait of our powerful pachyderm, please write us. 
Marketed exclusively by Leading Edge Products, Information Systems and Supplies 
Division, 55 Providence Highway, Norwood, MA 02062. Dealers: call toll-free 
1-800-343-8413; or in Massachusetts, call collect (617) 769-8150. 



